home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / ActiveX_Co1799029302004.psc / ActiveX Coder 4 / Classes / clsColumnSettings.cls next >
Text File  |  2004-04-14  |  4KB  |  149 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "clsColumnSettings"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = False
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
  15. Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
  16. 'local variable(s) to hold property value(s)
  17. Private mvarindex As Integer 'local copy
  18. Private mvargrow As Boolean 'local copy
  19. Private mvaredit As Boolean 'local copy
  20. Private mvarcolwidth As Double 'local copy
  21. Private mvaralign As Integer 'local copy
  22. Private mvarFormat_Numeric As Boolean 'local copy
  23. Private mvarFormat_String As String 'local copy
  24. 'local variable(s) to hold property value(s)
  25. Private mvarshow As Boolean 'local copy
  26. Public Property Let show(ByVal vData As Boolean)
  27. 'used when assigning a value to the property, on the left side of an assignment.
  28. 'Syntax: X.show = 5
  29.     mvarshow = vData
  30. End Property
  31.  
  32.  
  33. Public Property Get show() As Boolean
  34. 'used when retrieving value of a property, on the right side of an assignment.
  35. 'Syntax: Debug.Print X.show
  36.     show = mvarshow
  37. End Property
  38.  
  39.  
  40.  
  41. Public Property Let Format_String(ByVal vData As String)
  42. 'used when assigning a value to the property, on the left side of an assignment.
  43. 'Syntax: X.Format_String = 5
  44.     mvarFormat_String = vData
  45. End Property
  46.  
  47.  
  48. Public Property Get Format_String() As String
  49. 'used when retrieving value of a property, on the right side of an assignment.
  50. 'Syntax: Debug.Print X.Format_String
  51.     Format_String = mvarFormat_String
  52. End Property
  53.  
  54.  
  55.  
  56. Public Property Let Format_Numeric(ByVal vData As Boolean)
  57. 'used when assigning a value to the property, on the left side of an assignment.
  58. 'Syntax: X.Format_Numeric = 5
  59.     mvarFormat_Numeric = vData
  60. End Property
  61.  
  62.  
  63. Public Property Get Format_Numeric() As Boolean
  64. 'used when retrieving value of a property, on the right side of an assignment.
  65. 'Syntax: Debug.Print X.Format_Numeric
  66.     Format_Numeric = mvarFormat_Numeric
  67. End Property
  68.  
  69.  
  70.  
  71. Public Property Let align(ByVal vData As Integer)
  72. 'used when assigning a value to the property, on the left side of an assignment.
  73. 'Syntax: X.align = 5
  74.     mvaralign = vData
  75. End Property
  76.  
  77.  
  78. Public Property Get align() As Integer
  79. 'used when retrieving value of a property, on the right side of an assignment.
  80. 'Syntax: Debug.Print X.align
  81.     align = mvaralign
  82. End Property
  83.  
  84.  
  85.  
  86. Public Property Let colwidth(ByVal vData As Double)
  87. 'used when assigning a value to the property, on the left side of an assignment.
  88. 'Syntax: X.colwidth = 5
  89.     mvarcolwidth = vData
  90. End Property
  91.  
  92.  
  93. Public Property Get colwidth() As Double
  94. 'used when retrieving value of a property, on the right side of an assignment.
  95. 'Syntax: Debug.Print X.colwidth
  96.     colwidth = mvarcolwidth
  97. End Property
  98.  
  99.  
  100.  
  101. Public Property Let edit(ByVal vData As Boolean)
  102. 'used when assigning a value to the property, on the left side of an assignment.
  103. 'Syntax: X.edit = 5
  104.     mvaredit = vData
  105. End Property
  106.  
  107.  
  108. Public Property Get edit() As Boolean
  109. 'used when retrieving value of a property, on the right side of an assignment.
  110. 'Syntax: Debug.Print X.edit
  111.     edit = mvaredit
  112. End Property
  113.  
  114.  
  115.  
  116. Public Property Let grow(ByVal vData As Boolean)
  117. 'used when assigning a value to the property, on the left side of an assignment.
  118. 'Syntax: X.grow = 5
  119.     mvargrow = vData
  120. End Property
  121.  
  122.  
  123. Public Property Get grow() As Boolean
  124. 'used when retrieving value of a property, on the right side of an assignment.
  125. 'Syntax: Debug.Print X.grow
  126.     grow = mvargrow
  127. End Property
  128.  
  129.  
  130.  
  131. Public Property Let index(ByVal vData As Integer)
  132. 'used when assigning a value to the property, on the left side of an assignment.
  133. 'Syntax: X.index = 5
  134.     mvarindex = vData
  135. End Property
  136.  
  137.  
  138. Public Property Get index() As Integer
  139. 'used when retrieving value of a property, on the right side of an assignment.
  140. 'Syntax: Debug.Print X.index
  141.     index = mvarindex
  142. End Property
  143.  
  144.  
  145.  
  146. Private Sub Class_Initialize()
  147.     Me.Format_Numeric = False
  148. End Sub
  149.